Top 10k strings from HL ZX Forth (1983)(Mike Hampson).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /

Back to the directory listing

   3 a$=a$+"     "
   2 *************
   1 {H     !{J     '{K     -{L     3{M     9{N     ?{O     E{P     K{Q     Q{R     W{S     ]{T     c{U     i{V     o{W     u{X     {{Y     
   1 {>IN   $|?DUP  *|ABORT @|COUNT _|DEPTH t|EXECUT
   1 z?     #z'     *zINKEY 9zKEY   MzRND   tzwrdsch
   1 xBRIGHT(xPAPER ;xINK   QxBORDERbxHIRES qxPLOT  
   1 x@      yC@    ,y!     8yC!    DyP@    NyP!    [yFILL  fyERASE xyDELETE
   1 while,r-while-1
   1 wLOOP  "w+LOOP 7wLEAVE WwEXIT  ^wEXITLP`wWAIT  ewMAX   vwMIN   
   1 v>     -vDROP  AvDUP   IvOVER  SvPICK  _vSWAP  qvROT   |vROLL  
   1 tFIELD FuCR    Qu+     \u-     gu*     tu/     
   1 tEMIT  pt.     
   1 routines  %
   1 forget words
   1 else,r-else-1
   1 dict&chrs 
   1 a$=a$+n$(1
   1 a$="mc byte:":
   1 a$="WHILE"
   1 a$="UNTIL"
   1 a$="REPEAT"
   1 a$="Name Word:":
   1 a$="Give UDG number:":
   1 a$="Forget ":
   1 a$="File Name:":
   1 a$="Continue definition:":
   1 a$="BEGIN"
   1 a$="***>":
   1 a$="       ........                 Line "+
   1 a$(x);"+":
   1 SP48      
   1 HL ZX FORTH
   1 ;"Character ";C:
   1 ,begin-r+254
   1 ,begin-r+251
   1 *(a$="s")-1000
   1 *(a$="d")+3000
   1 *(a$=":")+2000
   1 ''''"Stack:";(29676
   1 '"You are now in Command Mode."
   1 '"Word not found.":
   1 '"Word already used.":
   1 '"Typing error.Continue.":
   1 '"Tape OK.":
   1 "routines"
   1 "dict&chrs"
   1 "Please play back to verify.":
   1 "Forgotten:";a$
   1 "Compiling - please wait."
   1 "''"2nd version 
   1  Redefinition of character ";a$
   1  March 83 M Hampson"''"Please wait"
   1  Copying of this program is      illegal except for storage of   the purchacer's own FORTH       words exclusively for his own   use."